home *** CD-ROM | disk | FTP | other *** search
- @echo off
- rem This Batch will initialize the BNU Fossil Driver to work with both
- rem Modem and Direct Link Connections.
- echo SDOOM for DOOM 1.2, created 1994 by Gooseman
- if "%1" == "d" goto direct
- if "%1" == "D" goto direct
- if "%1" == "m" goto modem
- if "%1" == "M" goto modem
- echo\
- echo USAGE: SDOOM type port {init}
- echo\
- echo [Type] = M,D ............... M for Modem Play, D for Direct Link.
- echo [port] = 1,2,3,4 ........... COM Port Selection.
- echo {init} ..................... Init-String for your Modem (Optional)
- echo\
- echo * The whole SDOOM Package -HAS- to be run in your DOOM Directory.
- echo * For NON-Standard Com Ports, run BNUPORT to setup the BNU Fossil Driver.
- echo\
- echo Examples:
- echo\
- echo SDOOM m 1
- echo\
- echo This will setup Doom 1.2 for modem play on port COM1:.
- echo\
- echo SDOOM d 3
- echo\
- echo This will prevent Doom 1.2 Direct Link mode from becoming jumpy at the
- echo cost of a little speed. The example uses COM3:.
- echo\
- goto end
-
- :modem
-
- rem
- rem MODEM Setup
- rem
-
- echo Doom 1.2 Modem Setup, initializing BNU Fossil Driver...
- BNU >nul
- if "%2" == "1" goto mcom1
- if "%2" == "2" goto mcom2
- if "%2" == "3" goto mcom3
- BNU /L3=9600,8N1 /I3+
- echo Raising DTR and RS Signals on COM4:...
- CARRIER 4 9600 >NUL
- goto msetup
-
- :mcom1
- BNU /L0=9600,8N1 /I0+
- echo Raising DTR and RS Signals on COM1: ...
- CARRIER 1 9600 >NUL
- goto msetup
-
- :mcom2
- BNU /L1=9600,8N1 /I1+
- echo Raising DTR and RS Signals on COM2: ...
- CARRIER 2 9600 >NUL
- goto msetup
-
- :mcom3
- BNU /L2=9600,8N1 /I2+
- echo Raising DTR and RS Signals on COM3: ...
- CARRIER 3 9600 >NUL
-
- :msetup
- if "%3" == "" goto setup
- echo Sending [%3] to Modem on COM%2: ...
- echo %3 >COM%2
-
- :setup
- echo Running Doom 1.2 Setup ...
- SETUP
-
- :remove
- BNU /U >NUL
- echo BNU Fossil Driver has been removed from memory.
- goto end
-
- :direct
-
- rem
- rem Direct Link Setup
- rem
-
- echo Doom 1.2 Direct Link Setup, initializing BNU Fossil Driver...
- BNU >nul
-
- if "%2" == "1" goto dcom1
- if "%2" == "2" goto dcom2
- if "%2" == "3" goto dcom3
- BNU /L3=4800,8N1 /I3+
- goto setup
-
- :dcom1
- BNU /L0=4800,8N1 /I0+
- goto setup
-
- :dcom2
- BNU /L1=4800,8N1 /I1+
- goto setup
-
- :dcom3
- BNU /L2=4800,8N1 /I2+
- goto setup
-
- :end
-
-
-